10 CLR:POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23
15 PRINT"[147]                                        [146]";
20 PRINT"     [210][193][196]'[211] [212][207][213][195][200][160][212][217][208][201][206][199] - MADE EASY     [146]";
25 PRINT"                                        [146]":GOSUB710
30 PRINT"               [205]ODULE 26 [146]
35 [141]720
38 [151]53280,0:[151]53281,0:[151]646,7
40 [153]"LOAD                 (null)(null)26 WAIT
42 PRINT"[150]              [215][193][210][206][201][206][199]!![159]"
44 PRINT"   [201]F YOU MAKE 5 UNCORRECTED ERRORS        IN THIS MODULE, YOU ";
46 PRINT"MUST START          OVER AGAIN."
48 PRINT"[150]     [208]RESS  [211][208][193][195][197][160][194][193][210] [146] TO CONTINUE[159]"
50 GETR$:IFR$<>CHR$(32)THEN50
52 GOSUB600
56 POKE53280,3:POKE53281,15:POKE646,0
58 R=0:TI$="000000":LINE=0:P=0:Q=0:G=1:K=0
60 LINE=LINE+1:PRINT"[147] [212][212]26  [197]XERCISE:"TAB(2)LINE"OF 17"TAB(27)"[197]RRORS:"Q
62 FOR K=1 TO 17
64 READ E$(K)
66 PRINT" [212]YPE CORRECTLY, THEN PRESS [210][197][212][213][210][206][146]"
68 PRINT" ";E$(K)
70 PRINT"[144]"
72 READ F$(K)
74 POKE198,1:POKE631,34:INPUT C$
76 IF C$=F$(K) THEN 90
78 PRINT" **** [206]OT CORRECT - [210]EPEAT - [197]RRORS:"G"[144]":GOSUB2050:GOSUB710
80 Q=Q+1:G=G+1
82 IF Q=5 THEN GOSUB 400:RESTORE:G=0:GOTO 56
84 GOTO 74
90 PRINT"[156]              [195][207][210][210][197][195][212]![144]":GOSUB2000:GOSUB710:P=P+1
92 IFP=17THEN RESTORE:GOTO 300
94 GOTO60
99 REM DATA FOR EXERCISES
100 DATA" [202]OE, [202]OHN, [202]OE, [202]OHN, [202]OE, [202]OHN.","[202]OE, [202]OHN, [202]OE, [202]OHN, [202]OE, [202]OHN."
105 DATA" [217]ES, [206]O, [217]ES, [206]O, [217]ES, [206]O, [217]ES.","[217]ES, [206]O, [217]ES, [206]O, [217]ES, [206]O, [217]ES."
110 DATA" [207]LIVER, [208]AT, [207]LIVER, [208]AT, [207]LIVER.","[207]LIVER, [208]AT, [207]LIVER, [208]AT, [207]LIVER."
115 DATA" [204]OUIS, [203]EN, [204]OUIS, [203]EN, [204]OUIS.","[204]OUIS, [203]EN, [204]OUIS, [203]EN, [204]OUIS."
120 DATA" [205]ARK, [206]ORM, [205]ARK, [206]ORMAN, [205]ARK.","[205]ARK, [206]ORM, [205]ARK, [206]ORMAN, [205]ARK."
125 DATA" [202]AMES, [213]LLA, [202]AMES, [213]LLA, [202]AMES.","[202]AMES, [213]LLA, [202]AMES, [213]LLA, [202]AMES."
130 DATA" [204]AURA, [201]NGE, [204]AURA, [201]NGE, [204]AURA.","[204]AURA, [201]NGE, [204]AURA, [201]NGE, [204]AURA."
135 DATA" [194]ETTY, [205]ARY, [194]ETTY, [205]ARY, [194]ETTY.","[194]ETTY, [205]ARY, [194]ETTY, [205]ARY, [194]ETTY."
140 DATA" [200]ENRY, [213]NCLES, [200]ENRY, [213]NCLES.","[200]ENRY, [213]NCLES, [200]ENRY, [213]NCLES."
145 DATA" [205]ISSISSAUGA, [205]ISSISSAUGA, [207]NT.","[205]ISSISSAUGA, [205]ISSISSAUGA, [207]NT."
150 DATA" [204]YNDWOOD, [204]YNDWOOD, [204]YNDWOOD.","[204]YNDWOOD, [204]YNDWOOD, [204]YNDWOOD."
155 DATA" [200]AMILTON, [200]AMILTON, [200]AMILTON.","[200]AMILTON, [200]AMILTON, [200]AMILTON."
160 DATA" [203]INGSTON, [203]INGSTON, [203]INGSTON.","[203]INGSTON, [203]INGSTON, [203]INGSTON."
165 DATA" [207]TTAWA, [207]TTAWA, [207]TTAWA, [207]TTAWA.","[207]TTAWA, [207]TTAWA, [207]TTAWA, [207]TTAWA."
170 DATA" [208]ICTON, [208]ICTON, [208]ICTON, [208]ICTON.","[208]ICTON, [208]ICTON, [208]ICTON, [208]ICTON."
175 DATA" [204]INDSAY, [204]INDSAY, [204]INDSAY, [207]NT.","[204]INDSAY, [204]INDSAY, [204]INDSAY, [207]NT."
180 DATA" [211]HERRY [194]ALRAM MADE ME DO THIS.","[211]HERRY [194]ALRAM MADE ME DO THIS."
298 :
299 REM FINAL INSTRUCTIONS
300 RESTORE:POKE53272,23:PRINT"[147]                [199][207][207][196][160][215][207][210][203]!":GOSUB900
305 POKE53280,0:POKE53281,0:POKE646,7
310 PRINT"[147]  [212]HIS IS THE END OF MODULE 26.":GOSUB710
315 PRINT"  [212]HE NUMBER OF SECONDS TO COMPLETE       THIS MODULE WERE:"
317 PRINT"[145]"VAL(TI$)
320 GOSUB720
325 PRINT"  [210]ECORD THIS TIME AND THE DATE.
330 [141]740
335 [153]"DEF  (null)HIS MODULE SHOULD BE PERFORMED TWICE
340 PRINT"  BEFORE ADVANCING TO MODULE 27."
345 GOSUB730
350 PRINT"[158]  [215]HEN YOU HAVE RECORDED YOUR TIME
355 [153]"  AND THE DATE, PRESS (null)(null)ATNLENVAL PEEKATN(null)
360 GETR$:IFR$<>CHR$(32)THEN360
362 PRINT"[147]  [217]OU HAVE A CHOICE:
364 [153]"  (null)RESS  R WAIT TO REPEAT THIS MODULE
366 PRINT"  [208]RESS  C [146] TO GO TO MODULE 27
368 [153]"  (null)RESS  M WAIT TO GO TO DISK MENU
370 GETR$:IFR$<>"R"ANDR$<>"C"ANDR$<>"M"THEN370
372 IFR$="R"THENRESTORE:GOTO10
374 IFR$="M"THEN386
376 RESTORE:POKE631,13:POKE198,2
378 PRINT"[147]  [204]OADING MODULE 27
380 [147]"TT27",8
382 [138]
384 [128]
386 [140]:[151]631,13:[151]198,2
388 [153]"LOAD  (null)ETURNING TO THE DISK MENU
390 LOAD"MENU",8
392 RUN
394 END
399 :
400 REM START AGAIN
410 POKE53280,0:POKE53281,0:POKE646,10
420 PRINT"[147]   YOU ARE MAKING TOO MANY MISTAKES!":GOSUB2150:GOSUB720
430 PRINT"   YOU MUST GO BACK TO THE BEGINNING       OF THIS MODULE.
440 [141]740:[153]"LOAD"
450 [142]
598 :
599 [143] INSTRUCTIONS FOR MODULE
600 [153]"OPENLOAD  (null)ODULE 26 INTRODUCES (null)RIGHT$CHR$LEFT$(null) HAND         LENATN(null)RIGHT$(null)ATN(null)WAIT LETTERS.
605 PRINT"  [150]   [146][153]   [146]   [146][158]      [146][159]      [146]   [146][153]   [146][150]   [146]
610 [153]"   DEF (null) WAITPRINT (null) WAIT VAL WAITSYS (null)  (null) WAITOPEN (null)  (null) WAIT RIGHT$ WAITPRINT (null) WAITDEF (null) WAIT   "
615 [153]"    DEF ATN WAITPRINT (null) WAIT STR$ WAITSYS ASC WAIT CHR$WAITOPEN  LEFT$  MID$ WAIT (null) WAITPRINT (null) WAITDEF : WAIT"
620 [153]"     DEF (null) WAITPRINT (null) WAIT LEN WAITSYS (null)  PEEK WAITOPEN (null)  (null) WAIT , WAITPRINT . WAITDEF   WAIT
625 PRINT" [211][200][201][198][212][146]         [211][208][193][195][197]      [146]    [211][200][201][198][212][146]
630 [141]720
635 [153]"OPEN  (null)SE YOUR  ATN WAIT FINGER TO PRESS THE        (null)VALASC(null) (null)LEFT$RIGHT$ASC(null) KEY."
660 [141]720:[153]"CONT        (null)RESS  (null)(null)ATNLENVAL WAIT TO STARTOPEN"
665 [161]R$:[139]R$[179][177][199](32)[167]665
670 [142]
700 [143] TIME DELAYS
710 [129]T[178]1[164]1000:[130]:[142]
720 [129]T[178]1[164]2000:[130]:[142]
730 [129]T[178]1[164]3000:[130]:[142]
740 [129]T[178]1[164]4000:[130]:[142]
750 [129]T[178]1[164]5000:[130]:[142]
899 [143] END OF MODULE FLASH
900 [151]54276,17:[151]54277,30:[151]54278,200:[151]54296,15
905 [151]54272,220:[129] T[178]15 [164] 1 [169][171]1
910 [151]54273,T:[151]53281,T
915 [129] T1[178]1 [164] 5:[130] T1:[130] T:[129] T[178]1 [164] 30
920 [151]54273,T:[151]53280,T
925 [129]T1[178]1 [164] 5:[130] T1:[130] T
930 [151]54276,0:[151]54273,0:[151]54272,0
936 [142]
1998 :
1999 [143] <YES> SOUND
2000 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
2005 [151]54296,15:[151]54277,42:[151]54278,250
2010 [151]54276,23:[151]54273,23:[151]54272,181
2015 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
2020 [151]54296,0:[142]
2048 :
2049 [143] <NO> SOUND
2050 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
2055 [151]54296,15:[151]54277,18:[151]54278,242
2060 [151]54276,33:[151]54273,4:[151]54272,48
2063 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]800:[130]
2065 [129]E[178]S[164]S[170]28:[151]E,0:[130]
2070 [151]54276,0:[151]54273,0:[151]54272,0
2075 [151]54296,0:[142]
2098 :
2099 [143] <END OF EXERCISE> SOUND
2100 [151]54276,17:[151]54277,30:[151]54278,200:[151]54296,15
2105 [151]54272,220:[129]T[178]50[164]1[169][171]1
2110 [129]T1[178]1[164]5:[130]T1:[130]T:[129]T[178]1[164]30
2115 [151]54273,T:[151]53280,T
2120 [129]T1[178]1[164]5:[130]T1:[130]T
2125 [151]54276,0:[151]54273,0:[151]54272,0
2130 T[151]54296,0:[142]
2148 :
2149 [143] <WHOOPING> SOUND
2150 [129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,8
2155 [151]54277,8:[151]54278,255:[151]54276,23
2160 [129]Z[178]1[164]3:F1[178]2
2165 [129]Y[178]1[164]3:F2[178]8
2170 [151]54273,F1
2175 [129]X[178]1[164]5:[151]54287,F2
2180 F2[178]F2[172]1.4:[130]X:F1[178]F1[172]1.5:[130]Y
2185 [129]W[178]1[164]10:[151]54287,F2
2190 F2[178]F2[172]1.05:[130] W:[130] Z:[151]54278,15
2195 [151]54296,0:[142]
4999 :
5000 [143] * IN MEMORY OF RAD JANJIC *                 ** RIP 87:11:26 **
5005 :
5010 [143] DESIGNED BY W H CUMBERLAND 87:12:21/88:04:24/90:11:12/91:05:13
5020 [143] HELP FROM JIM BUTTERFIELD
5025 [143] ADVISE WHC [416/278 7687] OF   ANY IMPROVEMENTS OR SUGGESTIONS